home *** CD-ROM | disk | FTP | other *** search
/ Softwarová Záchrana 3 / Softwarova-zachrana-3.bin / Xteq X-Setup / xqdcXSP-Setup-EN.exe / {app} / plugins / XQ Ver Disp 13.xpl < prev    next >
Text File  |  2004-03-01  |  2KB  |  70 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="1"
  3. "COUNT"="5"
  4. "UIPATH"="Information\Core"
  5. "NAME"="User Info"
  6. "OSVERSION"="0101011"
  7. "VERSION"="1.01"
  8. "LANGUAGE"="VBScript"
  9. "TEXT 1"="Logged On User"
  10. "TEXT 2"="My Docs Folder"
  11. "TEXT 3"="Home Drive"
  12. "TEXT 4"=".NET Account"
  13. "TEXT 5"="Open Programs"
  14. "DESCRIPTION 1"="This plug-in displays some of information about the current user."
  15. "DESCRIPTION 2"="You can't change anything!!!  Some items may be blank if your configuration does not support them.  'Open Programs' refers to the number of applications open in the taskbar, not the taskbar tray and not services. Some items require Windows XP or higher."
  16. "AUTHOR"="Xteq Systems (CptSiskoX)"
  17. "CONTACTURL"="http://www.xteq.com"
  18. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  19. "COMMENT 1"=" "
  20.  
  21.  
  22. sP="HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\"
  23. sV1="Logon User Name"
  24. SP2="HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders\"
  25. SV2="Personal"
  26. SP3="HKEY_CURRENT_USER\Volatile Environment\"
  27. sV3="HOMEDRIVE"
  28. SP4="HKEY_CURRENT_USER\Software\Microsoft\MessengerService\ListCache\.NET Messenger Service\"
  29. sV4="IdentityName"
  30. sP5="HKEY_CURRENT_USER\SessionInformation\"
  31. sV5="ProgramCount"
  32.  
  33.  
  34. Sub Plugin_Initialize 
  35.  if GetWinVer=2 or GetWinVer=4 or GetWinVer=6 then
  36.     s=RegReadValue(sP & sV1)
  37.     Call SetUIElement(1,s)
  38.  
  39.     s=RegReadValue(sP2 & sV2)
  40.     Call SetUIElement(2,s)
  41.  
  42.     s=RegReadValue(sP3 & sV3)
  43.     Call SetUIElement(3,s)
  44.  
  45.     s=RegReadValue(sP4 & sV4)
  46.     Call SetUIElement(4,s)
  47.  
  48.     s=RegReadValue(sP5 & sV5)
  49.     Call SetUIElement(5,s)
  50.  else
  51.     Call SetUIElement(1,"N/A")
  52.     Call SetUIElement(2,"N/A")
  53.     Call SetUIElement(3,"N/A")
  54.     Call SetUIElement(4,"N/A")
  55.     Call SetUIElement(5,"N/A")
  56.  end if
  57.  
  58.  
  59.  Call Disable 'user can't change anything!
  60. End Sub
  61.  
  62. Sub Plugin_CheckData(ElementIndex)
  63. End Sub
  64.  
  65. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  66. End Sub
  67.  
  68. Sub Plugin_Terminate 
  69. End Sub
  70.